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BASSSEG 16-Sep-1984 01:13:14 AX-11 Bliss-32 V4.0-74 Pp 1) 
12n8ep-18ke QY:Ezas | AXSAT Blis BASSEG.B32; O0F 61) 
0001 MODULE BASSSEG ( ' Extract the substring of the BASIC SEG 
0008 IDENT = '1-005' i File: BASSEG BSS . 


BEGIN 
' 
lentenneneeeeentententenannnnetersrsinerereetenteeteetnnenennenneneeneerentet 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

iw ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND C 
:* ONLY IN ACCORDANCE WITH THE TER SUCH LICENSE AND WIT 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 

:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS H 


. 
* 
* 
* 
* 
* 
. 
® 
« 
* 
't TRANSFERRED. * 
co 
* 
* 
* 
* 
. 
* 
* 
* 
* 


oO 
~" 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- CORPORAT Ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iz DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
it 
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: 
$8 '+4 
hy FACILITY: String support Library 
05 ; ABSTRACT: 
03 i This module extracts a substring according to the BASIC-PLUS-2 
03 4 syntax. It finds the substring of a main string starting at the 
3 003 : character position specified by the second input parameter and 
3 0038 ; continues for the number of characters specified by the third : 
Z st input parameter. This substring is copied to the destination string. 
4 0041 ENVIRONMENT: User mode, AST Level or not or mixed 
4 0045 ; AUTHOR: R. Will, CREATION DATE: 21-Feb-79 
4 0045 1 ! MODIFIED BY: 
4 0046 ! 
4 0047 ! R. Will, 28-Feb-79: VERSION 01 
4 gpee ! 01 - original 
4 049 $ = change s tahoe and call to COPY routine. 15-Mar-79 Rw 
5 0050 : 1-003 - Make the string Linkages start with STR$. JBS 04-JUN-1979 
5 0051 1 ! 1-004 - Change call to STRSSCOPY. JBS 16-JUL-1979 
5 4 ! 1-005 = CALL STRSPOS EXTR, DELETE THIS MODULE WHEN COMPILER CALLS STR$. 
5 005 ! RW 1-NOv-7 
5 0054 lee 
5 0055 
5 0056 !<BLF /PAGE> 


-o | 


13 
BASSSEG 18-Sep-1984 01:13:16 VAX#11 Bliss-32 vé.0-76 
sty en eee 188 PiiUg4s «| PASAT Ob degaze ye. B32; 


3 38 057 1! 

F 0 3 1 § SWITCHES: 

: F i i 

; ? Boe } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 8664 be 1! 

Se 064 1 ! LINKAGES: 

a 065 1! 

3. ® 0066 1 

; @& 0067 1! 

: 9 Boer 1 ! TABLE OF CONTENTS: 

; 0 069 1! 

; 0070 1 

; 7 0071 1 FORWARD ROUTINE 

: 7 0072 1 BASSSEG : NOVALUE; ! Find the SEG of a string 
3 74 0073 1 

5 75 0074 1! 

: 76 0075 1 ! INCLUDE FILES: 

“Bee a: 0076 1: 

; 78 0077 1 

; 79 0078 1 REQUIRE ‘RTLIN:RTLPSECT’; ' Declare PSECTs code 
; 0173 «1 

s 81 0174 1! 

5 82 0175 1 ! MACROS: 

; 83 0176 1! 

; «BS 0177 1: 

5 0178 1 ! EQUATED SYMBOLS: 

; 0179 1! 

“bay 0180 1: 

; 88 0181 1 ! PSECT DECLARATIONS 

; 0182 1: 

:; W 0183 1 DECLARE _PSECTS (BAS); 

“ee. | 0184 1! 

: 92 0185 1 ! OWN STORAGE: 

; 93 0186 1: 

s 0187 1! 

; bigs 1 ! EXTERNAL REFERENCES: 

s % 189 1: 

> 0190 1 

;s 0191 1 EXTERNAL ROUTINE : 
3 ag Bi38 1 STRSPOS_EXTR; ! Routine to do the copy 
: 100 0193 1 


3: 
6: 


St 91:1 14 Y 

4 11:56:39 BASRTL.SRCJBASSEG.832;1 

! perneer to destination descriptor 
f 
L 
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BASSSEG $5 1 AX-11 Bliss-32 V4.0-742 P 
A808 1a-Sep-1 age 


9 
9 
' 
i 
i 
: 


3 ise 194 1 GLOBAL ROUTINE BASSSEG (DEST_DESC, 

; 10 195 1 ointer to source descriptor 

: 104 138 1 START POS, irst character to be included 
| 122 i : END_POS) : NOVALUE = ast character position to include 

; 199 0199 1 144 

; 108 00 1 ! FUNCTIONAL DESCRIPTION: 

; 109 4 4 1! 

; 110 ¢ a This routine extracts the characters Starting at the 

». 397 0205 1! character position in the source string specified . the 3rd input 

3 Ng 0206 1! parameter and continuing to the character position in the source | 

s 11 0205 1! string specified by the 4th input parameter, and c that substring 

; (114 0206 1! to the destination string (by JSB to STRSSCOPY_R_R according 

s 115 0207 1! to the syntax of the class of the destination string. _ 

; 116 0208 1! If the starting position is < 1, 1 is used. If the ending position is 

s Vie 0209 1! > length of the source string. the Length of the source string is 

3; «118 0210 1! used. If the starting position > the ending position, a null string 

s 419 0211 1! is returned. 

s 320 bsg 1! 

3 121 021 1 ! FORMAL PARAMETERS: 

: \s¢ 0214 1! : 

s V2 OSi2 . ? DEST_DESC.wt.dx pointer to destination string descriptor 

3; 126 0216 1! SRC_BESC.rt.dx pointer to source string descriptor 

B Ye psiz 1? START POS.rw.v Character position in src to start substring 

; 1¢6 ass } END_POS.rw.v character position in src to end substring 

; 128 p3e0 1 ! IMPLICIT INPUTS: 

; 12 0221 1! 

; 13 Bss¢ 1! NONE 

s 3) 0225 1! 

s 52 0224 1 ! IMPLICIT OUTPUTS: 

s 135 0225 1! 

3: «(134 0226 1! NONE 

; 135 0227 1! 

3; 4136 0228 1 ! ROUTINE VALUE: 

: 137 0229 1 ! COMPLETION CODES: 

$ 138 0230 1! 

; 139 0231 1! NONE 

: 140 OS3§ 1! 

3: 6141 0233 1 ! SIDE EFFECTS: 

3 166 0234 1! 

3; «(14 0235 1! NONE 

i BBL 

; 146 $53 1 

3 «147 0239 2 BEGIN 

3: 148 0240 2 

3 «149 0241 MAP 

s 190 ose¢ DEST_DESC : REF BLOCK (8,BYTE); 

: 151 024 

: 126 0244 MAP 

s 13? ase2 SRC_DESC : REF BLOCK (8,BYTE); 

: 155 $58 STRSPOS_EXTR (DEST_DESC (0,0,0,0), SRC_DESC ([0,0,0,0], 

: «156 0248 TART_POS, END_POS); 

3 157 0249 RETURN; 

: «158 0250 1 END; ‘End of BAS$SEG 


—_- l 


: 18.13 ae 
igs" MERGE T1SiES EBSA RESaaSs 


-TITLE BASSSEG 
IDENT \1-005\ 


.EXTRN STRSPOS_EXTR 
-PSECT _BASSCODE.NOWRT, SHR, PIC,2 


“¢ Page 4 


0000 000 .ENTRY BASSSEG. Save nothing 2 0194) 

AC 9F 0000: PUSHAB END POS 3 0247. 

o¢ AC 9 900 PUSHAB START POS : | 

7E 4 Ac 7D 0000 mova beet BESC. -(SP) : | 

000000006 00 04 FB 900¢ CALLS #4, STRSPOS_EXTR : | 

e 04 0001 RET : 0250. 


; Routine Size: 20 bytes, Routine Base: _BASSCODE + 0000 


; 159 0251 1 

; 160 OS2¢ 1 END ‘End of module 

s 161 0255 1 

3; 162 0254 0 ELUDOM 

s PSECT SUMMARY 

: Name Bytes Attributes 
; _BASSCODE 20 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASSEG/OBJ=OBJ$:BASSEG MSRC$:BASSEG/UPDATE=(ENHS$ :BASSEG) 
: Size: 20 code + 0 data bytes 

3 Run Time: :01.8 

3; Elapsed Time: 00:04.5 

3 Lines/CPU Min: 8327 

3; Lexemes/CPU-Min: 21770 

; 7 2 Used: 19 pages 

: Compilation Complete 


003 AH-BT13A-SE 
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